N11 


LLLLLLLLLLLLLLL 
LLELELLLLLLLLLLL 
LLLELLLLLLLLLLL 


ba 
fe be be 


Ot Ot On Os be be Bas be be Dame be bs bs De Os Ds De bn be bs 
os 


1 onl ane 
oa be ee 
be bs bao 
be be 


eef ee] DeeREA UTl 
ILE**1D**READOBJ v04 
RRRRRRRR EEEEEEEEEE AAAAAA DDDDDDDD 000000 BBBBBBBB JJ ‘ 
RRRRRRRR EEEEEEEEEE AAAAAA DDDDDDDD 000000 BBBBBBBB JJ : 
RR RR EE AA AA DD DD OO 0O 6B BB JJ ‘ 
RR RR EE AA AA DD DD 00 00 BB BB JJ ‘ 
RR RR EE AA AA 0D DD 00 0O BB BB JJ ; 
RR RR EE AA AA DD DD 00 0O BB BB JJ ‘ 
RRRRRRRR EEEEEEEE AA AA ODD DD OO 00 BBBBBBBB JJ : 
RRRRRRRR EEEEEEEE AA AA OD DD 00 00 BBBBBBBB JJ ‘ 
RR RR EE AAAAAAAAAA DD DD OO 0O BB BB JJ JJ ‘ 
RR RR EE AAAA ODD DD OO 00 BB BB JJ JJ : 
RR RR EE AA AA DD DD 00 0O BB BB JJ JJ shen : 
PR RR EEEEEEEEEE AA AA DDDDDDDD 000000 BBBBBBBB JJJJJJ awen . 
RR RR EEEEEEEEEE AA AA DDDDDDDD 000000 BBBBBBBB JJJJJJ “ae “ 
LL IIIIII SSSSSSSS : 
LL IIIIII1 SSSSSSSS : 
LL Il SS : 
LL II SS : 
LL I] $s : 
LL I] SS : 
LL I] SSSSSS ; 
LL I] SSSSSS ; 
LL I] SS : 
LL II SS : 
LL II ss : 
LL I] Ss ‘ 
LLLLLLLLLL IIIIII SSSSSSSS ; 
LLLLLLLLLL IIIIII SSSSSSSS : 


elope 16- “329-19 o8¢ 0: gi: 2 AX-11 8 § z 0 2 


1 Bliss-32 v4.0-74 
984 VMSLIB.SRCJREADOBJ .B32;1 
MODULE util$read oblect ( 
CANGUAGE (BLISS$32) 
ADDRESSING MODE CEXTERNAL=GENERAL , NONEXTERNAL=GENERAL) , 
sDENT = 'v04-000 


BEGIN 
ATITLE "Read and dissect object file'; 


LRA RRR REE E RRA ERE EERE 


3 1 600) 
oe ee | 
: 4 004 ‘ 
Pa ee | : 
$ 7 0907 1 3 
3 8 008 1 3 
5 7) 0009 1 : 
3 10 0010 1 !« * 3 
39 0011 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * : 
3 i Baig 1 !'* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
; ‘7 Barz ! bs ALL RIGHTS RESERVED. * : 
s '® Pa Ps 
ee 0015 1 !* THIS SOFTWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
;s B28 1 !® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ; 
3 17 001 1 !* INCLUSION OF tHe ABOVE pido NOTICE. THIS SOFTWARE OR ANY OTHER * ° 
: 18 0018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
3 19 0019 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ° 
; st Base ! ts TRANSFERRED. * ; 
: '® * Py 
; Sg t4 1 !e phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
: 2 ORs 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
3 $e bose : is CORPORATION. + ; 
3 ! * 3 
: 26 0026 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ° 
; e? 0027 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * , 
cai a 0028 1 !* * 3 
; 29 0029 1! * 3 
4 $ boss 1 LRAT é 
3 1 0031 1 : 
re 3 0032 1 !++ ; 
3 38 oOas 1! 3 
; 0034 1 ! FACILITY: Run time Library 3 
os ae 0035 1! 3 
; 0036 1 | ABSTRACT: 3 
ee | 4 0037 1! ; ; 
3 4 54 1 This procedure reads an object file and returns the global symbols : 
$ 40 0040 1 i ENVIRONMENT: é 
s; 61 0041 1! 3 
3 $¢ 0042 1! VAX native, user mode. ; 
s 6 0045 1! 3 
2: «646 44 1 I= 

s 65 45 1! 

:; 646 046 1! 

s 67 047 1 ! AUTHOR: Benn Schreiber 

:; 648 048 1! 

: 49 049 1 ! CREATION DATE: 23-Jan-1981 

7 050 1! 

ae 51 1 ! MODIFIED BY: 

3 26 026 1 i 

a 0055 1! v03-002 BLS0Grs Benn Schreiber 16-Jun-1983 

$ 35 bee ! } d flags argument and 1MO0D flag 

g $ B28 1! v03-001 BLS0209 Benn Schreiber 27-Feb-1983 

5 5 057 1! Correct PSECT name for read/only OWN data 


© | 
: | 
| 


oe Oi lege V4.0=742 
VMSLIB.SRCJREADOBJ .B32;1 


5 
6 


1938033 


3h 


12 
16-Sep- 
14-Sep-19 


OBJEC Read and dissect object file 
0058 1 !-- 


UTILSREAD 
v04-000 
58 


UTILSREAD_OBJEC 
v04-00 


Ba Se ee Be Se Se Be Be Se Se Se Fe Ge Se Se Se Be Fe Se Se Ge Ge Ge Se Se Ge Ss Se Se Be Be Se Ge Se Se FH SH SSS Se Fe Se Se Se Se Se Se Ge Se Se ee Se Se Se Se Seas 


0909 09 C9 09 08 SI NIN NINN NINO AAA AOA AOO 
MEW OC OONOUS WN OOONOUES WMO 


86 


SAPS TELESP ORAS SE LE II ELS 


a ee ee ed ae ot ws ot = 


F 12 
eof, on amor sasha CRESHOH WML 


if 


Oooo 
SSSSSSSS 
PAPA AAOSO 


foleolelelelealel ol elealeleolealealol a! 
ONAL WN ("OO OONOULS Wry 


pofoflolololeololololo) 
SSN 


0097 


So 


at ot ot OOO’ OOooo0ccovo 


es ne a 


1 


XSBTTL ‘Declarations’; 
BLISS Libraries 
LIBRARY 
*SYSSLIBRARY:STARLET'; 
Define UTIL$ psects 


PSECT 

CODE = _UTILSCODE 
UTILSDATA, 

OWN = _UTILSDATA 

PLIT ="_UTILSCODE; 


i] 
Data structure to describe object module 


FIELD 
obec. tieids = 


°o 
Cc 
o 
' 
~ 
t 
3 
a] 
7 
> 
nnnnne 


obc_l_usrdata = 


obc_v_lnmseen = 
obc_v_imod = 

obc_b_currectyp 
obc_b_lstrectyp 
obc_b_modnaming 
ope .tmocnane . 


0 
4 
8 
: 
obc_q_desc = § 
3 


obc_b_ flags = 

obc_v_mhdseen = | 
= 
= 
C 


LITERAL 
obc_c_size = 38+31; 


GLOBAL LITERAL 
util$m_lnk_1mod = 1; 


LINKAGE 
context_11 = CALL : GLOBAL (context = 11); 


FORWARD ROUTINE 

dealloc_context : gontext.11. 
prohdr : context_11, 
progsd : context_11, 
proeom : context_11, 
sequence_check : context_11; 


exten, ROUTINE 
LibSfree_vm, 


AX=11 Blis 


Sark V4.0-7 
VMSLIB.SRCJREADOBJ 


-74 
-832;1 (2) 


'Definitions for OBJ$ etc. 


‘Address of globals routine 
‘Address of psect routine 
‘Address of eom rec routine 
‘Address of other GSD routine 
‘Address of other record routine 
'Dynamic string descriptor 

'User data to pass to routines 
‘Max rec length allowed by caller 


! module header seen 

' Lang. name record seen 
! only process one module 
‘Current record type 
‘Last record type 

‘Length of module name 
‘Length 31 


'Size of OBC structure 


‘Bit mask for flags 


'Deallocate context block 
'Process module header records 
'Process GSD records 

‘Process end of module records 
'Check sequence of object records 


'Deallocate virtual memory 


2 Page 3 


Re Oe Be Se Oe Be Oe Se Oe Oe Be BH Be Se Se we HSH SESH SFOs Oe Oe SESE SEH ee Be SHS SHH Se Se Se Se SESH Se Se ee Shee ee SHS ae eee SH SH Se Se aees 


12 

UTILSREAD_OBJEC Read and dissect object file 18-56 -1984 02:27:35 AX-11 Bliss-32 V4.0-742 Page 4 

youro08 Declarations 12786871388 96:97:32 VMSLIB.SRCIREADOB).B32:1 . (2) 

s 397 116 1 Libs ot yn. ‘Allocate virtual menory : 
: 118 1} ! str$freel_dx; !Deallocate dynamic string ; 
; 120 118 1 EXTERNAL LITERAL ; 
; 121 120 1 ink$_badccc, 'ILlLegal compilation completion code . 
3 ¢ 12] 1 ink$_eomerror, ‘Errors in eom compilation code ‘ 
3; 3 1 § 1 ink$_eomfatai, ‘Fatal errors in eom cone! Lat on code : 
; 124 1 1 Lnk$_eomwarn, ‘Warn ~ in eom compilation code : 
3 tee 124 1 ink$_gsdtyp, 'IlLlega ee type ‘ 
3 Y § 125 1 ink$S_illfmicnt, ‘ILLegal formals count : 
3 1 § 1 Lnk$_illmodnam, 'ILlegal module name Length ; 
ae 8 1 1 ink$_illpsclen, ‘Illegal psect lengt : 
= 126 1 ink$_illreclen, 'ILlegal record length : 
; 150 129 1 ink$_illrectn2, ‘Illegal record length : 
; «131 0130 1 ink$_illre tye. ‘Illegal record type : 
2 3 ¢ 4 Ss ink$_illrectye, 'ILlegal record type ; 
5 1 ¢ 1 Lnk$_illsymlen, 'ILlegal symbol Length : 
3 4% 01 1 Lnk$_noeom, 'No end of module record in file ‘ 
3 329 3 4 1 ink$_rectoosml, ‘Record too small to hold data ; 
es 135 1 Lnk$_sequence ‘Illegal record sequence ; 
3; 137 0136 1 ink$~sequence?, ‘Illegal record sequence ; 
; : 3 i : ink$_strivl; ‘Illegal structure level : 
: 140 0139 1 LITERAL : 
3; (141 0140 1 true = 1 ; 
: 148 0141 1 false = 6; : 
3; (14 Biss 1 3 
3 «144 0145 1 GLOBAL . 
F \e2 bite : util$gl_objctx : REF SBBLOCK FIELD(obc_fields);!pointer to context block : 
3; 147 0146 1 PSECT OWN = _UTILSCODE; 'Read-only data : 
3; (148 0147 1 : 
3; «(149 0148 1 OW : : 
; 190 0149 1 compilecodes : VECTOR(3,LONG) 'Translate eom compile codes into messages : 
> 151 0150 1 INITIAL (lnk$_eomwarn, : 
: 136 0151 1 nk$_eomerror : 
: 15 0152 1 ink$~eomfatal); ; 


UTILSREAD_OBJEC Read and dissect object file 16 Sep-1984 5 1 Bliss-32 V P 
v04-00 dealloc_context == deallocate context block “3t0-198 96: gi % Yaste™ LE SREAD UE) BS B53 1 ~~ (33 
3s 353 1 ae ZSBTTL ‘dealloc_context -- at ig context block’; 
s 4 8 1 1 ROUTINE dealloc_Context : context = 
: : : 5 pesin 
; 139 1 - This routine deallocates the context block 
: 161 1 5 EXTERNAL REGISTER 
: 196 199 context = 11 : REF SBBLOCK FIELD(obc_fields); 
> 164 16 L 
; 19? 168 status; 
; 183 165 2 IF .context NEQ 0 
; 168 198 THEN BEGIN 
: 169 16 str$freel_dx(util$gl obit ctxCobc_q_des 
: 170 0168 status | = TibSfree_vmt%REF (obc_c “Stze) otitsel.. objctx); 
: 171 169 apa _objctx = Context = 0;~ 
: 1 O1pt aaa: 
: 17% 0178 3 ELSE ERE TURN true 
s 175 017 
; 176 0174 1 END; 
TITLE | es 1 cal Read and dissect object file 
-IDENT \vV04-000\ 
-PSECT _UTILSDATA,NOEXE,2 
00000 UTILSGL_OBJCTX:: 
-BLKB 4 
-PSECT _UTILSCODE,NOWRT,2 
000000006 000000006 00000000G 00000 COMPILECODES: 
LONG LNKS_EOMWARN, LNKS_EOMERROR, LNKS_EOMFATAL ; 
UTILSM_LNK_1MOD== 1 
-ERTRN LIBSFREE_VM, LIBSGET_VM 
EXTRN STRSFREET Dx LNK$_BADCCC 
“EXTRN LNKS$_EOMERROR, LNKS_EOMFATAL 
EXTRN LNKS~EOMWARN, LNKS GSDTYP 
EXTRN LNKSILLERL CHT. LNRS$_ILLMODNAM 
~EXTRN weep LL PSE LEN e UNKS IttREC LEN 
eEXTRN LNK of LEREELNG « LNKS_ ILLRECTYP 
-EXTRN NKSTILLRECTY2 P sth NKS i sy MLEN 
oEXTRN pt Bt 
~EXTRN LINKS. s5GUE NCE, ma SEQUENCE? 
-EXTRN LNKS“STRLVL 
0004 00000 DEALLOC_CONTEXT: 
- WORD Save R2 3 0154 
32 00000000' 9 9 MOV UTILSGL_OBJCTX, R2 : 
E a SUBL a4, SP 3 
° ? C aeor Spa : 0165 
7E 62 {1 C 1 ADDL3 0, UTILSGL_OBJCTX, -(SP) : 0167 


12 
UTILSREAD_OBJEC Read and dissect object file 14. ~300~ 138% 0: gi: 5 AX-11 Bliss-32 V4.0-742 
v04- dealloc_context -- deallocate context block 14-Sep-1984 4:36 VMSLIB.SRCJREADOBY .B32;1 


000000006 00 ; 4 ie Sig Re" STRSFREE1_DXx 
04 AE 62 +4 a, nOvz #69, 4(SP) 
000000006 00 05 4 2 GALLS oe ered LIBSFREE_VM 

é3 yi b Rene eee -OBJCTX 
50 01 B? i 18: eye 1, RO 


; Routine Size: 53 bytes, Routine Base: _UTILSCODE + 000C 


12 
UTILSREAD_OBJEC Read and dissect object file 1b5e 1984 02:27:35 AX-11 Bliss-32 V4.0-742 P 7 
v04-0 sequence_check == check record type sequence 1 730071 38e 96:97:83 VMSLIB.SRCIREADOB).B3251 a (4) 


3; 7 175 1 ZSBTTL. ‘sequence_check -- check record type sequence’; 
: 17 1 1 ROUTINE sequence, check : context_11 = 8 

; : » \f EGIN 

: i g 179 Check that the record sequence is correct 

: 184 1 ROUTINE sequence_error : context_11 = 

: : 5 ; BEGIN 

: 187 4 | Signal a record sequence error 

: 189 186 EXTERNAL REGISTER 

; 1% : 5 context = 11 : REF SBBLOCK FIELD (obc_fields); 

: 19¢ 189 3 IF .contextCobc_b_modnamlng) NEQ 0 

: 19 190 THEN SIGNALTLAk$_sequence,1,contextLobc_b_modnamLng]) 
: 194 0191 ELSE SIGNAL(Ink$~sequence?): 

: 196 6198 RETURN Lnk$_sequence 

s 197 0194 END; 


Q000C 00000 SEQUENCE_ERROR: 
» WORD 


Save R2,R3 ; 0181 
53 000000006 8F D0 00002 MOVL #LNKS SEQUENCE, R3 : 
52 000000006 00 3 0009 MOVAB L IBSSTGNAL R ; 
25 AB OO 9019 TSTB (CONTEXTS : 0189 
0c 13 0001 BEQL : 
e 25 AB 9F 00015 PUSHAB 37(CONTEXT) : 0190 
91 DD 00018 PUSHL #1 : 
; DD OO1A PUSHL Rs : 
62 0 FB 001¢ CALLS #3, LIBSSIGNAL : 
0? 11 OOO1F BRB : 
000000006 8F om 00021 1$ PUSHL #LNK$_SEQUENCE2 : 0191 
1 FB 0027 CALLS #1, LYBSSIGNAL : 
3 D0 0002A 2$ MOVL R3, RO : 0193 
04 0002D RET > 0194 
; Routine Size: 46 bytes, Routine Base: _UTILSCODE + 0041 


; 198 9193 } 

; 19 138 ! Main body of sequence_check 

; 200 19 : 

; 201 138 EXTERNAL REGISTER 

; 4 19 context = 11 : REF SBBLOCK FIELD (obc_fields); 
: 204 1 2 BIND 

3; 205 § Ha pony = contextCobc_q_desc] :_S$BBLOCK 

; ne objrec = .recdesc(dsc$a_pointer] : SBBLOCK; 

; ; 5 IF “fontene tobe b_currectyp) EQL obj$c_hdr 

; 210 IF .objrecCobj$b_subtyp) EQL obj$c_hdr_mhd 


UTILSREAD_OBJEC Read and dissect object file $ep-1984 02:27:35 11 Bliss-32 V4.0-742 Pa 
v04- sequence_check == check record type sequence 16- sep-198 96:97:82 VASLIB™ SRCJREADOBJ.832; 1 - (4) 


4 THEN BEGIN 
4 IF sconpextlobe -b_lstrectyp] EQL obj$c_eom 
THEN BEGIN 


RETURN true 
ELSE RETURN sequence_error(); 


POPoPoPononofrony» 


00 
3 11 
Be 
: 14 1 contextCobc_v_mhdseen] = true; 'Main mhd record has just followed eom recor 
: 18 \¢ context bob. ~v_inmseen] = false; 'Flag no Lnm mhd seen 
: 21 14 
: 18 8 a 2 Buse RETURN sequence_error() ‘Last record was not eom, signal the error 
: 0 0 13 3 ELSE_IF .contextCobc_v_mhdseen] 
3 1 0218 4 THEN BEGI 
3 § 19 4 IF “THEN context subtyp] EQL obj $e hdr_Lnm 
: Q 4 contextCobc_v_lnmseen] = true; 
3 4 14 RETURN t 
; 5 Q § 4 N 
; 8 8 ? ; ELSE RETURN sequence_error() 
: 228 8 5 ELSE IF .contextCobc_v_mhdseen] 
: $3 BS § THEN eg ion eeneoee v_lnmseen] 
: 231 0228 IF “fenveuttene b. currectyp] EQL o biSe 'If current record is end of module 
3 3 50 HEN contextlobc_v_mhdseen] = fal ! then we have no mhd record 
: 234 0231 
s @39 0 3 
3; 236 bse 
3; 237 0234 1 


0000 00000 SEQUENCE_CHECK: 
WORD 


° Save nothing ; 0176 
50 14 AB 9 90002 MOVAB 20(CONTEXT), RO : 0 0¢ 
50 04 AO 00 00006 MOVL  4(RO), RO : 020 

23 AB 95 OOOOA TSTB 5 (CONTEXT) > 0205 

2 Ne 00 D BNEQ $ : 
01 AO 95 0000F TSTB (RO) + 0207 

10 i 012 BNEQ 1$ ; 
03 24 AB OQ gi CMPB 36(CONTEXT), #3 : 0209 

1 BNEQ : 

1 18 4$ 

32 AB 1 O1A B1$B2 #1, 34(CONTEXT) : 0211 
22 = AB g A O15 BIB ae 4 (CONTEXT) ; : 1g 
3 2 AB €9 4 1$: BLBC 4(CONTEXT), 4$ : 0217 
83 83 nd 5} 8 CMPB CRO) #1 : 8 19 

19 1 C BNEQ 4 ; 
22 AB 06 , BISB2 ie. 34 (CONTEXT) ; 0220 
BRB ; 3 1 
13 22 AB E9 2$: BLBC 4 CONT > 0205 
3 22 AB 01 €1 BBC tl aCEONTENT), 4$ : 9 6 
0 23 AB } 3 CHB $3¢CON TEXT), #3. ; 0228 
22 if 8A 43 BICB2 #1, 34(CONTEXT) ; 0399 
5 1 B0 47 3$: MOVL #1. RO : 0230 

4 4A RET 3 


UT ILSREAD OBJEC 


3; Routine Size: 


12 
Read and dissect object file 15-Sep-1984 a Tet #4 AX-11 Bliss-32 V4.0-742 Page ; 


sequence_check == check record type sequence 14-Sep-1 VMSLIB.SRCJREADOBY .B32;1 (4 
83 AF 00 FB 00048 4$: CALLS #0, SEQUENCE_ERROR : 32 
04 0004F RET ; $534 


80 bytes, Routine Base: _UTILSCODE + O06F 


<Cc 


12 
UTILSREAD_OBJEC Read and dissect object file 16-Sep-1984 02:27:35 AX-11 Bliss-32 V4.0-74 
patti prohdr -- process MHD records 1 =300 138% 96:97:32 VMSLIB. REIREADUBI B52 
1 XSBTTL_ ‘prohdr == process MHD records'; 
1 poyT ane prohdr : context_11 = 


2 pe 10 
31 a (5) 


This routine processes MHD records 
| Inputs: 
recdesc Address of string descriptor for mhd record 


EXTERNAL REGISTER 
context = 11 : REF SBBLOCK FIELD(obc_fields); 


IND 
4 pty = contest) ae q.desc] :_$BBLOCK 
objrec = .recdesc(dsc$a_pointer] : $BBLOCK; 


LOCAL 
status; 


i] 
Check record sequence 


If NOT (status = sequence_check()) 
THEN RETURN .status; 


| Skip all but main module header records 


iF .ob rectob] $b subtyp] NEQ obj$c_hdr_mhd 
; THEN RETURN fErue; 


| Check for legal structure Level 
if objrec(mhdsb_strlvlJ GTRU obj$c_strlvl 
THEN BEGIN 


SIGNAL (Lnk$_strlvl,1,objrec(mhd$b_naming)); 
1 aa ink$_strivl 


POPOPOPOPININIPPONINNONINIPNONONy 


SIN NSIS SSSI AA AAA AAA AMM ES BB BP PP PPE PW 


PROPSPOPOPONIPONOPONINININPONONYNY 
BLS SELEALAN= 


Check max record length supplied 


iF (context Lobc_v_maxrecing] = ,objrec(mhd$w_recsiz]) GTRU obj$c_maxrecsiz 
SIGNAL (Lnk$_illreclen,2,.objrec(mhd$w_recsiz],objrecCmhd$b_naming]); 
+h a ink$_illreclen 


WN © OONO UES WN 9 ODNAUE WN O OONAULS WN "OO OONOUESWN OO” 


i] 
: Check module name Length 


iF .objrec(mhd$b_namlng] GTRU obj$c_symsiz 

eee RBree mfid$b_ naming] Arar id 
SIGNAL (Lnk$_illmodnam, .objrecCmhd$b_namlng],objrec(mhd$b_naming)); 
th a ink$_illmodnam 


DONA UNE WIN OS OO NO UES WIN @ OO ONAN E WN O OO NOUS WIN | O VOVNAOUE WR" OOONOu 


O09 69 69 690909 69 09 0909 SINISE AA AP AA AAA AMM EB EPL LLP EE 


SOOSCOOCSOSDSDSCOSCODODODOSOOOOOCOOOOOCOO OOOO COCO OOOO OOOO OOOO 
© 
=3 


RIPIPIPIPINIPIPIPUPIPINIPYPIPIPIPYIPIPONIPIPIPIAIPI PIPPIN FUNIAIPINPIPUPIPINIPIPIPUPUNYD 


oo 
wis 


Be Se Se Be Se Se Be Ge Se Se Ge Se Be Ge Fe Se Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Ge Se Fe Ge Ge Se Se Se Fs Se Se Se Se Se Se Se Se See Se Se Sees ee 


UTILSREAD_OBJEC Read and dissect object file 
v04- prohdr == process MHD records 


9 


N 12 
1 i: -1984 AX-11 Bliss-32 V4.0-742 
Vezgeen18Be 89:82:83 FMS hbase Bee 595532, 
! Copy module name into context block for error messages 


' 
' 
contextCobc_b_modnamling] bjrecCmhd$b_namln 

enaneve rs objrec(mhd$b "Realngs. srgccnpasuene bess 5 contextCobc_t_modname]) ; 
I 


i Call user action routine for “other records’ if specified 

IF .contextCobc_l_orcrtn] NEQ 0 
THEN status = (. context obc_l_orcrtn]) (recdesc,.contextCobc_l_usrdata]) 
ELSE status = true; 


RETURN .status 
END; 


O7FC 00000 PROHDR: .WORD ve R2,R3,R4,R5,R6,R7,RB,R9O,R10 
5A 000000006 8F D0 00002 MOVL PNKS® ICLR RECL EN, R10 
59 000000006 8F D0 00009 MOVL sLNKS” STRLV mw 
58 000000006 00 9€ 90010 MOVAB : BSS “age 
56 14 AB 9E 00017 MOVAB aCEONTENTS. R6 
52 04 A6 DO 0001B MOVL 4(R6) 

8D AF 99 FB OOO1F CALLS H0. SEQUENCE _CHECK 
57 9 DO 00023 MOVL nas 
03 5 58 00 6 BLBS ar aT TUS, 
0085 31 000 BRW bs 
01 A2 95 0002C 1$: TSTB =: 1(R2) 
04 13 0002F BEQL 2$ 
50 01 0 00031 MOVL #1, RO 
04 900 4 RET 
02 A2 3 0035 2$: TSTB (R2) 
OF 13 00038 BEQL $ 
05 A2 9F OOO3A PUSHAB 5(R2) 
01 dD 00 D PUSHL #1 
9 DD 0003F PUSHL  R9 
68 03 FB 041 CALLS #3, LIBSSIGNAL 
50 9 dO 00044 MOVL  R9. RO 
04 0047 RET 
50 03 a2 0048 3$: MOVZWL 3(R2), RO 
20 AB 50 8 004¢ MOVW RO, 38 (CONTEXT) 
0800 8F : a 005 CMPW = séRO, «#2048 
12 1B 3 BLEQU 4$ 
0S A i PUSH 3 (R32) 
7E 03 Ad 3C¢ A MOVZWL 3(R2), -(SP) 
Q DD 000 PUSHL We 
A DD 06 PUSHL R10 
4B 04 F CALLS #4, LIBSSIGNAL 
50 A ROVL R16, RO 
1F 05 A2 91 00069 4$: CMPB (R2), #31 
05 1A D BGTRU 5$ 
0S A %3 F TSTB (R2) 
18 1 2 BNEQ $ 
05 A2 9F 00074 S$: PUSHAB (R3) 
7E 5 6A2 9A 00077 MOVZBL 5(R2), -(SP) 


Sete Se Se Se Se Se Se Se Se Ge Se Se Ge Ge Ge Ge Se Se Ge Ge Se Ge Ge Ge Be Be Be Bs Se Sse Be Se Be Se Se Be Se Be 


13 
UTILSREAD_OBJEC Read and dissect object file 1bese =-1984 27:35 AX-11 Bliss-32 V4.0-742 Page 12 
v04-00 prohdr == process MHD records 12r8e8=1 Re 96:97:83 VMSLIB. SRCIREADOB) .B3251 . (5) 
000000006 8F oD 78 PUSHL MNKs ILLMODNAM : 
68 3 FB CALLS Shit : 
000000006 8F BO - MOVL #LNK$_ILLMODNAM, RO 3 0289 
25 ap 05 A 96 C 68: OvB (R3), 3 37 (CONTEXT) : 9294 
5 05 A 3A 1 MOVZBL : 0295 
26 «AB 06 A2 50 28 00095 MOVC3 RO, ging) 38 (CONTEXT) : 
10 AB D3 0 98 TSTL. 16¢CONTEXT) + 0299 
OF 1 9 BEQL 7 : 
1C AB DD OOOA PUSHL 28(CONTEXT) : 0300 
56 DD OOOA PUSHL R : 
10 ba 0¢ FB 0 A CALLS # + 916(CONTEXT) : 
5 D A MOVL RO, STATUS : 
03 11 09 AC BRB 8$° : 
57 04 dO OOAE 7$: MOVL #1, STATUS : 0301 
50 7 DO 00087 8$: MOVL STATUS, RO : 0303 
04 00084 RET : 0304 


; Routine Size: 181 bytes, Routine Base: _UTILSCODE + OOBF 


fy 
WAI PIPUNINPYUNINPIPNNIDY) 2 2 PS SS SS SOs COO 


Ww UE oP ot et at et et et ee hn ele) 
PWN 2 OODNAUE WN OOONAUEWN (OC OONAUE WN “"OOONOULSWN—O 3 


WAIN WINAN AMAA AANA AAA AAA AAW NAAN WNAWNNAAWNANWAANAA 
QOummnviuiv 
SOON 


ao 
m= 


ILTIN 
NULLPARAMETER; 


EXTERNAL REGISTER 
context 11 


LOCAL 
symboldesc : 
onetttces, 
symbol fla 
gsd desc. 9S geaLockCdsc$e _s_bln], 
status, 
bt 
gsdof 

el 


: REF $BBLOCK FIELD(obc_fields); 


$BBLOCKCdsc$c_s_bln], 


or ter SBBLOCK; 


"retieat = Ip ae ahs q_desc] : 


BLOCK 
objvec = .recdescldsc$a_ ptt ot B : BO OE TORC BYTE); 


IF .contextCobc_l_gblrtn] EQL 0 
THEN RETURN’ true; 


gs d.GesctdscSp fives) * gsd_desc(dsc$b_class] = 0; 
gsdoffset = obj$c_subtyp; 
' 
Process the GSD record 
WHILE oigeeer tens LSSU .recdescCdsc$w_length) 
OF OCAL 
recordtype, 
wordpsectgsd; 
objrec = .recdesc(dsc$a_pointer] + .gsdoffset; 
wordpsectgsd = ((, obj 
CASE (recordtype = “obi vect sdoffset]) 
SET asd 


2 
; 
; 
2 BIN 
; 
- 


13 
UTILSREAD_OBJEC Read and dissect object file 1-5 iss- 4.0-74 
V04 5 progsd == process GSD records 1228687} 38 9: $i, 33 LYMSLIB SRE TAEADUBD BSoe1 ro (b) 
0305 XSBTTL rogsd == process GSD records’; 
88 ROUTINE A ce ry! context. 11 = 
0 hep 
This routine processes GSD records 
Inputs: 
recdesc Address of string descriptor for gsd record 
i 
BU 


'String descriptor for symbol name 
'Vai\ue of symbol 

'Symbol flags 

'Suring descriptor for gsd subrecord 
'Status from processing entry point 
'Length of def/re 

‘Offset into record 

!pointer to object record 


'Name record as byte vector 
'If no routine to process them 
! then don't bother with the record 


‘Init pointer into record 


‘Loop through the record 


‘Contains word of psect rather than byte 
'Update record pointer 


rec gsdsb.. gsdt J] GEQU gsd$c symw) 'Test for word of psect number 
iW rec(gsd$b_gsdtyp] LEQU gsd$c_prow)); 


sDispatch to process GSD 


c_psc TO gsd$c_maxrectyp OF 


Be Oe Be Oe Oe Be Oe Se Oe BH Be Oe BH Oe Se SH Se Be BH Se Se Be Be Se Se SH Se SHH Be Se Se SH Se Se SH Se Se SH Se Se SH Se SH Se Se SESH SH Oe SESE Oe Oe Oe Bt we 


es aS 


> 13 
UTILSREAD_OBJEC Read and dissect object file 16-Sep-1984 02:27:35 AX-11 Bliss-32 V4.0-742 S 14 
v04=00 wee gli wee Ry sy Sess eater ee a A eg Pt ct meade: 


; rt 28 Cgsd$c_pscJ : 'Psect definition : 
; ? 4 : PSECT definitions : 
: 368 62 4 BEGIN ; 
; 369 0 8 4 : 
3 fy 8 ee ? psectdef = objvec(.gsdoffset] : $BBLOCK; !Name the definition : 
: Lf: 8 66 4 LOCAL : 
$; of 367 4 psectdesc : SBBLOCKCdsc$c_s_bln], > 
: 374 0368 4 psectalign, ; 
3 af 8 4 4 psectflags, ‘ 
; re B59 : psectalloc; ‘ 
; 378 B38 4 IF peer tect + gps$c_name + 1) GEQU .recdescldsc$w_length] ; 
: 44 bes 5 THEN BEGIN : 
; 380 0374 5 SIGNAL (Lnk$_rectoosml,1,contextCobc_b_modnaming)); ° 
; 381 0375 5 RETURN Lnk$_rectoosml ; 
; 3 0376 4 END; 3 
; 38 0377 4 psectdescCdsc$w_length] = .psectdeflgps$b_namlng); : 
> 384 0378 ¢ psectdesc dsceb. ctype = psectdesc(dsc$b_class] = 0; : 
; «385 0379 4 sectdesclds $a_p9 nter] = paecidetigpast_naned; ; 
; 386 0380 4 F .psectdeflgps3b_namling] af 0 'Check length of psect name > 
3; fer 0381 4 R ponest efCgps$b_naming] GTRU obj$c_symsiz : 
; 388 bees > THEN BEGIN 3 
; «389 03835 5 SESHAL CANNES StNp Es On 3,psectdefl(gps$b paalngd. ; 
; 2 0384 5 spaececer gpssb_naming].contextLobc_ _modnaming]); ; 
: $3) bane ? pee ink$_illpsclen : 
; 33 0387 4 Length = gps$c_name + .psectdefCgps$b_naming); 'Compute Length of psect def. ; 
: 394 0388 4 IF .contextlobc_l_pscrtn] NEQ 0 'If user psect routine supplied ‘ 
3 395 0389 5 THEN BEGIN ! then set up and call it now : 
3: 396 0390 5 psectalign = .psectdefCgps$b_align]; : 
gs SOT 0391 5 psectflags = .psectdeflgps$w_flagsJ; : 
; 398 Ba06 5 psectalloc = .psectdeflgps$l_allocj; ; 
3; a 03935 5 gsd_descLdsc$u_ length = . length; 'Set up descriptor for psect def. 3 
: 400 0394 5 sd_desc geese potmerd = .objrec; ; 
: 401 0395 2 -contextCobc_U_pscrtn]) (psectdesc. 'Call the user routine now ; 
; 40 0396 psectalign,psectflags.psectalloc : 
; 40 0397 5 -contextlobc_l_usrdata ,gsd_desc); ; 
: 404 0398 4 END; 3 
; 405 0399 4 Seder tees = .gsdoffset + .length; 'Update pointer into record ; 
: 406 0400 3 ND; ; 


UTILSREAD_OBJEC 
v04-0 


Fy oF oP oP oF ot ot oF oF ot ot oF ot at at ot ot ot ae 


WAWAI AI ANWAAAI AIP PIPOPIPONPONIPUPY 2 2 I OS OS SS OOD 
OONONLE WN (OOOO U EWN —OOONOUS WOO @ 


440 


SRK PLLLLL LEE 
ees are ee eens 
DONO US WOO 


, at 
SERS 
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Read and dissect object file 1b-5¢ -1984 02:27:35 AX-11 Bliss-32 V4.0-742 Page 15 
progsd == process bis records 1 730071382 96:97:32 VMSLIB. SRCIREADOB).B32s1 , (8) 
401 ' 
a ALL types of symbols 
404 tgsd$c_sym TO gsd$c_prow] : 'ALL symbols 
: g BEGIN 8 -P y 
ri symbolrec = objvec(.gsdoffset] : $BBLOCK; !Name the symbol gsd 
4 LOCAL 
4 entrymask 
r symbolstring : REF VECTORC,BYTEI; !Pointer to symbol ascic name 
4 IF .recordtype EQL gpésc.e m 'Process entry points and procedures 
4 OR .recordtype EQL gsd3c_epmw 
OR .recordtype EQL gsd$c_pro 
OR .recordtype EQL gsd$c_prow 
THEN BEGIN 
Process entry points and procedure definitions 
iF pwerevavetone 
THEN BEG N 


BEE EF FWA AAAI POPONINPONPNPOPAY 2 OS S| OOOO 


NOME WN OO OONAU EWN | O ODNOAOU EWN OOONAOU EWN" OOONOuM 


Se at at ek ak te ek ee a a ek at ak at at ae kk et et et ee ee 


SPPERERRERRERRRRRRERE RRR ERROR REAR RRR ZR ZZ ZZ 
= 


4-4-4499 94 


| Entry point with word of psect 
entrymask = .symbolrecCepmw$w_mask); 


epmw$l_add 


symbolvalue = .symbolrec _addrs 
epmw$b_namlngl; 


symbolstring = symbolrec 
ELSE BEGIN 

Entry point with byte of psect 

entrymask = .symbolrecCepm$w_mask); 
sengst = epm$c_name + sclepns(cedsrsss— 


symbolvalue = .symbolreclLepm$l_addrs 
pyenerasr ing = symbolrec epm$b_namingJ; 


! 

i 

descriptors 

if .recordtype EQL gsd8c ro 


—?P 
R .recordtype EQL gsd$c_prow 
THEN Gein 4g s ad 


LOCAL 
argcount; 


IF 
THFN BEG! 


DAENNPAPA PAA PAD spss DD AAA AA AAA AAA AAA MMIII BE EEE PEPE PW 


i ink$_illfmlcnt 


peng = epmwSc_name + :omspivaaseely ne 
PS : 


! If this is procedure definition, then skip the argument 


formals = objvec(.gsdoffset+.length) : SBBLOCK; !Name formal argument descriptors 


-formals(fml$b_minargs] GTRU .formalsCfml$b_maxargs] 
SIGNAL (Lnk$_illfmlicnt,2,.symbolstring,contextCobc_b_modnaming)); 


UTILSREAD_OBJEC 
v04-000 ~ 


500 


ooo 


PIPPI 


VSSBVOAnRam—OSHNS ARS 


500 


w 


: 
Read and dissect object file 16-Sep-1984 02:27:35 AX-11 Bliss-32 V4.0-742 P 
progsd -=- process GSD records 18-86-1382 96:97:32 VMSLIB.SRCIREADOBJ .B32s1 weed 
4 F (.gsdoff +. + 
35 ies gedot set Length + fml$c_size) GEQU recdescldsc$w_length] 
46 SIGNAL (Lnk$_rectoosml,1,contextlobc_b_modnaming)); 
ibe +3 Lnk$_rectoosml 
465 6 length = .length + fml$c_si e; 'Skip fixed part of formals 
464 6 IF Targcount : "formal st tml$b-maxargs]) NEQ 0 ‘Tf there ore argument descriptors 
465 8 THEN INCR i FROM 1 TO .argcount ! then process them 
bce? , PO BIND 
468 7 argdesc = objvec(.gsdoffset+. length] : !Name the argument descriptor 
sg ? . : $e8L0CK; , : 
a472 é gength = length + .argdesclCarg$b_bytecnt] + arg$c_size; 
047 END; 
0474 4 END; 
0475 4 ' 
bee9 ? Process ordinary symbol definitions and references 
0478 4 if -recordtype EQL sd8c_s m 
.recor e sd$c_symw 
0480 § THEN BEGIN sito 
bee 5 | Ordinary symbol definitions and references 
0484 : entrymask = 0; 'No entry mask 
0485 5 IF NOT symbol reclgsy$v_def] 'If a reference 
pees 6 THEN BEGI 
04 6 ! 
ot 4 ? Symbol reference 
0490 6 length = srf$c_name + -symbolrec(srf$b_naming); ‘Simply compute Length of ref 
0491 6 symbolvalue = 0; ‘Value is 0 if a reference 
983 ? symbolstring = symbolrec(srf$b_naming); 
0494 6 ELSE BEGIN 
0495 6 } 
R698 6 ! Symbol definition 
0497 6 : 
0498 ) IF worgpocctged ‘If a word of psect number 
99 4 THEN BEG N 
7 
7 
7 
7 
7 
7 
7 
7 
6 


PUPP IVP SUSTAIN 
Oc 


et ee a de 


: ...with word of psect number 


iength = sdfwSc_name + . ymbolrec(sdfw$b_namingJ: 
Fédivst val j; ‘Point to value 


symbolvalue = .Symbolrec ue 
sdfwSb-naming); 'Point to the symbol name 


; mbolstring = symbolrec 
ELSE BEGIN 
eeewith byte of psect number 


length = sdf$c_name + .symbolrec(sdf$b_naming); 
fsdtst value : ‘Point to symbol value 


symbolvalue = .symbolrec i 
sdf$b-naming); 'Point to the symbol name 


symbolstring = symbolrec 
EXD: g y 
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UTILSREAD_OBJEC Read and dissect object file 18-5e 1984 02:27:35 AX=11 Blisg-32 V4.0-742 Page 17 
VO4000 progsd == process GSD records 12788871382 96:97:82 VMSLIB.SRCIREADOBJ 832: 1 . (8) 
3 ¢ a3 5 END; 
: ? 1 2 , END; 'Symbol definition 
3 é H ? } Check Length of symbol name 
; 4 IF .symbolstring(0] EQL 0 Check validity of symbol name 
3 ; : 2 1 4 renee gaymeets ringtod GTRU obj$c_symsiz , 4 
; 0 5 i SIGNAL (Lnk$_illsymlen,3,.symbolstring !Signal illegal symbol name 
; 1 524 -Symbols ringlOd, context obc .b_modnamlng)); 
$ § 0525 RETURN Lnk$_illsymlen 
; 2 03 $ ? END; 
; % 2 Be 3 ? Create string descriptor for symbol name 
3 239 0530 4 symbol flags = gsyqbolrogledtu, flags): 'Get the symbol flags 
; 538 0531 4 symboldesc(dsc$w_length] = .symbolstringl0]; 
3 oP 05 ; 4 symboldescldsc$b_dtype) = 0; 
; 540 05 4 symboldescldsc$b_class] = 0; 
> 541 0534 4 symboldesc aacor perciers = symbolstring(1); 
3 265 B23? 4 gsd_desc(dsc$w_length] = .length; 
3 ez b2 § : gsd_desc(dsc$a_pointer] = .objrec; 
; 545 $334 5 (.contextCobc_l_gbirtn]) 'Call the user global symbol routine 
> 546 0539 4 (symboldesc,symbolvalue,symbol flags,entrymask, 
; 547 0540 4 -contextlobc_l_usrdata],gsd_desc); 
; 548 0541 4 goset tect = .gsdoffset + .length; 'Update the pointer into the record 
; 549 Beg ND; 
; 550 054 
s $91 0544 Cgsd$c_idc) : ‘Entity ident check 
3 22g 0545 4 BEGIN 
3 oo Bere 4! 
; 554 0547 4! entity_name = , 
3 339 B2e8 4! entity_ident =, 
3; 326 549 4! object_name =; 
3 Sor 0550 4 
; te 0551 4 true 
; 559 8236 4 
3; 360 B22 ; BND: 
; 561 554 CINRANGE) : 
: 206 0555 4 BEGIN 
3; 36 228 4 true 
: 564 55 END; 
; 565 228 TES; 
; 566 5 END; 'GSD record 
; 567 560 
3 $8 ee) RETURN true 
: % §368 END; ‘of progsd 
ores PROGSD: gUOne Saye R2,R3,R4,R5,R6,R7,RB,RI,R10 ; 0306 
3 34 § SUBL & SP ‘ 
14 AB SE MOVAB 20(CONTEXT), RS ; 0333 
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oouw 
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=32 V4.0-742 (8) 

15-S00-1984 93:32:38 FUMsLie’sneSnenooes-a5o—1 

= =| 4 ; . 

bject file 14-Sep PSECTALIGN ; 

d and dissect object file. BL 1(R3), AGS ; 

ae terete tA gp Bye My ity 1 A 9A goons MOVIL At * PSECTATL OE ‘ 

v04- ¢ AE A B MOVL renerh GSD_DESC 

AE £ ORS BS bboe Rove BRUREC. cep “DES tes ; 

7 & ietdit PUSHAB Geb psc : 

8 AE eo o 09 PUSHAB PSECTALLOC ; 

: D PSECTFL : 

' PUSHAB é 

ie Be bem : 

30 D 3 ; 

:  BRW #2 

02 tS OooEs aor RECORDTYPE, a8 

D1 000EB a = 13$ #3 : 

05 13 OF Poor petite 

03 i 13 3 CHPL RECORDTYPE, #6 : 

d1 09 F NEG 168 , 148 : 

yee Riiy, WI dette : 

17 C OOOFD OVZBL 12(R3), L 3 

BOR Sa RV Bg teas vat ue 

37 AS 0 09109 ROVAB TecR3s, SYMBOL STRING 

A 

AE 06 ; 9E 001 RB «15$ MASK é 

ee et | O movaw. PAS ENTRY ; 

0 8 88 AS. 9A 0019 ADDL 1 A é 

5 0¢ CO 0011D MOVE 3482} SYMBOL STRING 

ie 05 AS BF 00135 ri REcORDfYPE. 8 : 

: 03 es 58 3 o15¢ | CHPL AECORDTYPE, w6 

D1 001 NEQ_ 23$ FFSET, R9 : 

Ae Vin ee HSI 9f : 

1(R 

52 5 ¢1 001 CMPB (R4), : 

54 ne St a PUSHAB $< CONTEXT) 

01 AA 1c 18 00 PUSHL SYMBOL STRING 

25 AB OOF 0014 PUSHL § 

88 Bb OotG PUSHE —ACNKS_ILLFMLCNT 

G3 BP 125 ste a LTBSSIGNAL RO : 

000000006 04 FB lor aout #LNKS_ILLFMLCNT, 

menen’® $8 000000006. 8 Be 130 188: nOvAB Bon aon «RSD, RO ; 

9 : CM , : 

70 * 0 iA 16 per cal 

65 - A 9F 00169 198: PUSHL it TOOSML 

= - bb ig PUSHL aN TBSSIGNAL = : 

000000006 rB i ROVE” LNKS_RECTOOSAL, 
000000006 98 000000006 $F yaetteys RET 


Page 4° 
. -11 Bliss-32 V4 0-742 (8) 
1b-$00-1984 93:30:88 Hast te Sat READOBJ.B32;1 oe 
Read and dissect object file 14-Sep-1984 15:54: sail : 946s 
Ui }use AD_OBJEC progsd == process GSD reco < ve ; seis p00. ra STH at oe 
a Bo FARE Be < 
CL ; 
; fi tht zs TH, GSDOFFSET, RO F eave 
afc) OpIgb ats: ADB. bins) ; 
2 1 A eh 19 MOVAB” 2(RODELENGTHI LENGTH i 0465 
° > aoey 19¢ AOBLEG ARGCOUNT, I, 31 
1 23 rs 145 388; Cnet RECORDTYBE, “s pe 
£ ch 5 OBIS CHPL RECORDTYPE, #4 Wise 
0 es BNEQ a5 2 485 
04 D 12 O01AD LAL ENTRYMASK : 0485 
Sa ea GP : 
02 a8 AS 9A 0018? MOVZBL 4<R3), Lef : 048 
" 3 of 05 C0 0188 ¢ SYMBOL VALUE i 049 
$7 0 4 00185 ROVAB (R38). SYMBOL STRING : 0485 
vm es a i 1¢3 ne UoRDesecresp, 26$ : 0503 
Ge £9 ObiC? ass: MOVZBL 10¢R3). LENGTH = 
45 AS 5A OOICA ADDLS” IT LENGTH - i 9504 
3 th £0 OOtee nO 6(R$), SYMBOLVALU : 0508 
4 06 i DO Byte) sd 1O(R35, YMBOLSTRING : 0498 
om o” 43 FF Oot, ROVZBL 9(R3), LENGTH Pe 
3 9A O01be 268: AO BL 9(R3) LENG : 9stg 
Bo ABBA Bee Met ae 385 
oe 09 AS 8 SIEe ams: ater (SYR@6L RING) ; 
05 OE Emps —(SYMBOLSTRING), #31 
fF i 0 BUSHAB S7<CONTEXT) : 
: b i ae: ie ewe, oso : 
° 86 9h O01F PUSHL SYMBOL STRING 
7E go bb Gir pusHe Sy é 
PRU RES Bhs quem : 
“ aesancens: i rB 82 ROVE HLNKS_ILLSYMLEN, RO ; 
000000006 ; NOV od 
50 ee ot i 13 298: MOVZUL {SYmBGLSTRINGD SYMBOLDESC 
+ oC 
ot OE » 2 et 1D ye VRe)  SYRBOLDESCo4 
30 AE i is 8 MOVE OBJREC, GSb-DESC+4 
BOE 5A PUSHAB GSD DESC ; 
arene rae ical : 
AE buat FLAGS 
20 KE OF PUSHAB  SYMBOLVALUE 
o8 AE OOF PUSHAB SYRBQLDESC. : 
a F C ALL #6, a0( CONTEXT 1 : 
: 6 £8 00348 30S: ADDLS LENGTH. “GsDOFFSE 
00 BB 83 £8 00545 308: 


K 13 
UTILSREAD_OBJEC pees and dissect object file 16-Se 5 AX-11 Bliss-32 V4.0-742 Pa 1 UT 
v04-00 rogsd == process GSD records 18: Sep- 1984 96: gi 3 VASLIB SR ROIR READOBJ .832;1 ” (8) 
FDCA 31 4 BRw 1$ : 0355 
50 64 dO 09948 31$: MOVL #1, RO ; 036 
04 4¢ RET 3; 0563 


; Routine Size: 589 bytes, Routine Base: _UTILSCODE + 0174 


—t 
‘= 
be 


13 
A _OBJE Rend and dissect object tile Petist  a 


ZSBITL ‘proeom -- het og Ne records’; 


aEGIN proeom : context 


i Process end of module records 
EXTERNAL REGIST Rr 


ww PIII 


Coo AAANA 


WN OOONOUS wr 


fe] 
“i 


pew few eee loool ole lolelelelololelololololo) 


109 CD C9 C9 C9 0909 C8 NINN SIS NIN NINO OA OO 


context = 11 : REF SBBLOCK FIELD(obc_fields); 


D 
recdesc = sae barby pn q_desc] : SBBLOCK 
objrec = .recdescldsc$a_ “pointer] : SBBLOCK; 


Seatlnes. 
transfer_psect, 
transfer_address, 
comcode, 
wordpsecteom, 
status; 


contextCobc _w_maxreclng] = obj$c_maxrecsiz; 


w 


i Check record sequence 


woo 


if NOT (status = sequence_check()) 


DUPVPV DVS PUIVPVSUSIVSIVSIVSVSVSVSIVSTSISISISISISISIVIIVIIVIIVT 


SSLSSRENSLESES 


porapnestens # 


PUPV IV IV PUSS SUSU USU SSUES USS IIT 
SOONAMNE WN $9 OONOU EWN $0 DOONEY "OOOO 


OOOCOCoooocoooso 


o 
SOOOO000 000 OWC 


AAAAAASAOS 
Sooooce 
BISAEUN OS 


Aan 
So 
oO 


THEN pects 
SIGNA 


SURO RI 


So 


THEN RETURN .status; 


if (IF vecerors voce 


<c 


‘Reset to maximum allowed by Language 


(.objrecCobj$b_rectyp] EQL obj$c_eomw); 
Check record length and determine if a transfer address is present 


sthcons fer address = burtengtng Las: Length] NEQ gone. eommin) 


D (¢ -FecdescldscSu Len 


LSS asonee’ _eOmmx 
@omw$c_eommax) )) 


(.recdesc Cascé ue length) GTR 


ELSE ((transfer zaddress = 
AND ((.recdescldsc$w sence LSSs~ 
OR (. recdescldsc W tenath 


RETURN nk $- 
END; 


Check the module compilation completion code 


SOONOULSWN—O 


it Kconcoge = .objrecCeom$b_comcod]) NEQ 0 


MROPOPORY — 2 tt 


oO aon 
Mt es 


Se Se Se Se Ge Se Se Se Se Ge Ge Be Behe Ge BF Se Se Se Ge Se Ge Fe Fe Ge FF Ge FH Ge Ge Fe Se Se ge Fe Se Se Ge Se Se Se Se Sse Sse eeSse Se See Sees Se Geese esas 


ADAAAAAAAAAAAAAAOO 
SOWOONOULS WN OOO 


Noroferory 
DWNAOULWN— 


o 


IF .comcode GTRU 3 
THEN BEGI 


arere escl scow_ on th NEQ SomSc_ eommin) 
GTR” eom$c_eommax)))) 


L(Lnk ke ittr ecten. .2,.-recdesc(dsc$w_length],contextCobc_b_modnaming)); 


N 
SIGNAL (Lnk$_badccc,2,.comcode,contextLobc_b_modnaming)); 


RETURN Lnk$_badccc 


END 
cue SIGNAL (.compilecodes(.comcode-1),1,contextCobc_b_modnamlng)); 


<c 
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TILSREAD_OBJEC Read and dissect object file 16-Sep-1984 02:27:35 AX-11 Bliss-32 V4.0-74 
04- proeom -- process EOM records 197808-1382 TH ee VMSLIB. SRC READNBI Booe1 — 3} 


; 6 3 $ 1 Get transfer address info if present : 
> 631 ? § IF NOT .transfer_address : 
; § § 4 THEN transfer_psect = : 
; 6 625 ELSE IF .wordpsecteom : 
; 634 ° § THEN BEGIN ; 
; 635 transfer_psect = .objrecCeomw$w peindxd: . 
; 636 6 transfer_address = obi rec eomwSl_tfradrj; ; 
3 63 $e eomflags = .objrecCeomw$b_tfrfigJ; : 
; 639 0631 ELSE BEGIN ; 
; 640 06 ¢ transfer_psect = .objrecCeom$d_psindx); : 
; 641 06 transfer_address = .objrecleom$l_tfradrJ; : 
$ $06 0634 eomflags = .objrecCeom$b_tfrflgJ; : 
; 64 0635 END; : 
: ets O63? 5 | call tine if supplied 
; ' Call user routine su e 

646 0638 i as 

; 647 063 IF .contextCobc_l_eomrtn] NEQ 0 

; 648 0640 THEN status = (.contextlobc_l_eomrtn]) (eomflags,transfer_psect, 

> 649 0641 transfer_address,comcode,recdesc) 

; 650 berg ELSE status = true; 

; 651 064 

3 636 0644 RETURN .status 

3; 63 0645 1 END; 


O3FC 00000 PROEOM: .WORD Save R2,R3,R4,R5,R6,R7,R8,R9 : 0565 
59 FCAS CF 9E 9000¢ MOVAB SEQUENCE CHECK, R9 : 
58 000000006 Hi D0 0000 MOVL § #LNK$_BADCCC, ; 
57 00000000G 8F DO 90005 MOVL #LNKS"ILLRECLEN, R7 ; 
56 000000006 00 H 001 MOVAB LIBSSIGNAL, R6 : 
3 10 C2 0001C SUBL2 #16 : 
5 14 AB i OO1F MOVAB 20(CONTEXT), R3 + 0574 
52 04 Ad D 0 3 MOVL (R3), > 0575 
20 AB 0800 8F B80 000 MOVW #2048. 32(CONTEXT) : 0586 
69 0 FB 00020 CALLS #0, SEQUENCE CHECK : 0590 
4 D 9 MOVL RO, STATUS ; 
03 4 ‘ BLBS TATUS, 1$ : 
00D3 31 BRW 53 : 
5 ps 9 1$: CLRL = RO : 0593 
07 1 B CMPB ss (R2), #7 : 
1 BNEQ 2s 3 
D 4 INCL RO : 
55 D 42 2%: MOVL RO, WORDPSECTEOM ; 
1D ‘ 4 LBC  WORDPSECTEOM, 4$ : 0597 
50 C 0004 MOVZWL (R3), RO : 0598 
02 d Bt goods ched ORO, #2 
2 rE BEQL 3$ : 
D INCL = RI : 
04 ag 1D 3$ MOVL §R1, TRANSFER_ADDRESS : 
. 2 8 BLBC =O s«éRh1. B : 
8 0 61 00058 CMPY sé, @f > 0599 


N 13 | 
UTILSREAD_OBJEC Read and dissect object file 16-Sep-1984 02:27:35 AX-11 Bliss- 4.0- 4 
v04-00 proeom -- process EOM records 122880-1382 93:90:32 VMSLIB’ SREIREADOBI BSoe1 ti 3) 
1F 0005 BLSSU _7$ ; 
09 5 i cMPW RO. "9 + 0600 
50 : C 4$ MOVZWL (R3), RO + 0601 
02 6 BF doer See ORO. we : 
2 Ft D BEQL Rg. : 
D F INCL = RI : 
04 AE 1 0D l 5$ MOVL = R1, TRANSFER_ADDRESS : 
1A 1 €£ 7 BLBC =O s «aR. 8 : 
07 : 81 78 CMPW RO. A + 0602 
: F 00078 BLSSU 7 : 
08 0 B81 00070 CMPW 3S, #8 + 0603 
10 18 000 $$ BLEQU 8s : 
25 AB OOF 90 $ PUSHAB 37(CONTEXT) + 0605 
50 DD 000 PUSHL R : 
02 DD 0087 PUSHL # ; 
57 DD 00089 PUSHL R : 
66 04 FB 00088 CALLS #4, LIBSSIGNAL ; 
50 7 DO O008E MOVL 7. RO + 0606 
6E 01 a2 9k boos 8S MOVZBL 1(R2). COMCODE : 0611 
29 13 $696 BEQL 108 - : 
50 25 AB 9E 00098 MOVAB 37(R11), R > 0615 
03 6E 01 0009C CMPL §_ COMCODE, # : 0613 
10 1B 0009F BLEQU 9$ : 
50 oD S004} PUSHL RO > 0615 
04 AE DD OO0A3 PUSHL  COMCODE : 
02 DD 000A6 PUSHL We ; 
58 DD 000A8 PUSHL R : 
66 04 FB OOOAA CALLS #4, LIBSSIGNAL ; 
50 58 DO OOOAD MOVL 8. RO > 0616 
04 00080 RET : 
50 DD 000B1 9$ PUSHL RO : 0618 
01 DD 00085 PUSHL #1 : 
50 08 AE DO 0008 OVL COMCODE, RO F 
FB7D CF40 0D 00089 PUSHL COMPILECODES-4(RO] F 
66 0 FB OOBE CALLS #3, LIBSSIGNAL ; 
05 04 AE €8 000C1 10$:  BLBS | TRANSFER_ADDRESS, 11$ + 0623 
08 AE 04 000C5 CLRL §_ TRANSFERTPSECT + 0624 
: 11 000¢8 BRB 13$ ; 
11 £9 OOCA 11$: BLBC WORDPSECTEOM, 12$ : 06 5 
AE 2 A2 3¢ 000¢ MOVZ2WL 2(R2), TRANSFER_PSECT : 06 
04 AE Sh A po D OVL 4(R2), TRANSFER-ADDRESS : 0628 
AE 8 A2 9A 0000 MOVZBL 8(R2). EOMFLAGS : 0629 
OF 11 000DC RB 13$ + 0625 
08 AE 02 A2 9A OOODE 12$:  MOVZBL 2(R2), TRANSFER_PSECT : 06 : 
04 AE 03 A po OE MOVL (Ro). TRANSFER-ADDRESS : 06 
C AE 07 A2 9A OO0E MOVZBL 7(R2). EOMFLAGS : 06 
08 AB b 9 ED 13$: TSTL B¢ CONTEXT) : 0639 
7 1 F BEQL 4$ : 
53 pd OOF PUSHL R3 > 0640 
04 AE OF O00F4 PUSHAB COMCODE : 
OC AE 9F 000F7 PUSHAB TRANSFER_ADDRESS : 
14 AE OF OOOFA PUSHAB TRANSFERPSECT ; 
1C AE F FD PUSHAB EQMFLAGS ; 
08 6B 05 FB 001 CALLS #5, a@8(CONTEXT) ; 


14 
UTILSREAD_OBJEC Read and dissect object file 16- Sep- 5 AX-11 Bliss-32 V4.0-742 
vou~oeO si proeom -- process EOM records 1 =gep- 138 9¢: gi; % VMSLIB.SR ROIR READO BJ.832;1 
54 30 0 104 MOVL RO, STATUS 
1 107 BRB 
24 1 4 109 14$: MOVL #1, STATUS 
0 4 DO 0010C 15$:  MOvL STATUS, RO 
04 0010F RET 


; Routine Size: 272 bytes, Routine Base: _UTILSCODE + 03C1 


Be Se Se Ge Ge Ge Se Ge Se Ge Fe Se Se Se Ge Se Ge Se Se Se Se Se Oe Ss Se Se Se Se Se Se SH Se Se Se Se Se Se Se eeesas 


1b-Sep-1 


UTILSREAD_OBJEC Read and dissect object file 4 02:27:35 AX=11 Bliss-32 V4.0-742 
Vouroco UTILSREAD_OBJECT - ied an object file 1228687138 96:90:38 VMSLIB. SRCIREADOBJ.B3251 
s $655 R646 1 ZSBTTL ‘UTILSREAD_OBJECT - read an object file’; 

; 656 647 1 GLOBAL ROUTINE util$Sread_object (read routine, flags,user_context, 

; 657 278 1 global_routine, psect_routine,eomrec_routine, 
; 658 649 1 Oothgsd_routine,othrec_routine) = 

> 659 0650 BEGIN 

; 660 0651 ! 

: 293 6636 } Thés routine is called to read an object file and return the contents 

; ge8 0654 2 | INPUTS: 

> 664 0655 ' 

; 665 0656 : read_routine Routine to read the next record of an object file 

; 666 beer t is called with onw argument as follows: 

: oo8 +84 (,read_routine) (user_context,record_descriptor); 

: 670 0661 i flags OPTIONAL = Address of longword of user-requested flags 
3 07) bers 2 UTILSM_LNK_1MOD = only process one module 

: 67 0664 : i user_context OPTIONAL = Longword of context which is passed 

; or bee § to all called routines. 

: 676 0667 § i global_routine OPTIONAL = Routine that is called with the name 

3 ort poee and value of a global symbol. It is called as: 

: 679 0670 ; i (.global_routine) (symbol _desc,symbol_value, 

; 680 0671 ! symbol_flags,entry_mask, 

; 681 0672 2! user_context,gsdrec); 

; 682 0673 2! 

; 683 0674 2! WHERE : 

; 684 0675 2! symbol _desc is the address of a string descriptor 
; 685 0676 2! for symbol name 

; 0677 2! symbol_value is the address of the symbol value 

: 687 0678 2! symbol_ flags is the address of the symbol flags 

3; 688 0679 2! entry_mask is the address of the entry mask 

3; 689 0680 ! user_context is the context passed in 

; 690 0681 : gsdrec is the address of a string descriptor 
: $3) bee § } for the symbol record 

: 693 0684 2! psect_routine OPTIONAL = routine that is called for a psect 

> 694 0685 § : definition. 

; 695 0686 : 

; 0687 ! (.psect_routine) (psectname,psectalign,psectflags, 

; 244 e434 psectalloc,user_context,gsdrec) 
; 699 0690 i eomrec_routine OPTIONAL = routine that is called for end of module 

3 p90 $3) records 

: 70 69 i (.eomrec_routine) (eomflags, transfer_psect, 

; 694 : transfer_address,comcode, 

; re $33 user_confext,eomdesc) 

ae 9 i othgsd_routine OPTIONAL - routine that is called for all other 

. 0 698 ; GSD types 

; 708 44 : 

; 8 oe0 (,othgsd_routine) () 

: 711 702 2! othrec_routine OPTIONAL - routine that is called for all other 


D 14 
VOS=000 me GFTCSREADCOBIECT © Peed anvsbject file 1e=8ep-1984 18:94:36 EVMSLIB SRESREADOBJ. 85351 Page 485 
record types 
(.,othrec_routine) () 
OUTPUTS: 
global_routine is called for each symbol definition 
BUILTIN 
NULLPARAMETER; 


GLOBAL REGISTER 
context = 11 : REF SBBLOCK FIELD(obc_fields); 


LOCAL 
status, 
recdesc : REF $BBLOCK; 


' 
If a context block already exists, then use it. Else allocate one 


IF .util$gl_objctx EQL 0 
THEN IF NOT (status = LibSget_vm(ZREF (obc_c_size), 
u 


til$gl_objctx)) 
THEN BEGIN 


SIGNAL(.status); 
RETURN .status 
END; 


NNNNANNANAANNNNNNNNNNNSS SSS 


WIAA AIA AAIAI AI POPIPIPOPIPUNIPDY 2 2 SS OS Se 
SOONAOUES WN "OC OONAOUEWN "OO ONOUS wr Ss 


Be Oe Ge Be Be Se Se Se Se Se Se Se Se Ge Se Ge Se Se Fe Ge Se ee BH Se He Se Se Se Se Se Ge Se Se Ge Se Be Ge Ge Se Ge Ge Se Se Se Ge Se Se Se Sees Bee Sees Ge Gees 
~s 
= 


POROROROPOROPOPOPOPORONONONONOPOPUNORONOPONONONNONONO PU POPU WII nonofonofofonononononorororononononororonony 


739 3 

ee Initialize the context block 

74 context = .util$gl_objctx; 

744 CHSFILL(0,obc_c_size,.context); 'Zero the context block 
745 context obc_w-maxrec(ng] = obj$c_maxrecsiz; 

746 contextLobc_b currectype = obj$c_eom; ‘Initialize current record type as end of module 
747 IF NOT RULLPARARS TER( 

S83 THEN contextLobc_v_1mod] = ..flags AND util$m_lnk_1mod; 

£30 } Fill in routine addresses 

£36 IF NOT NULLPARAMETER(3) 

75 4 THEN contextlobc_l_usrdata] = .user_context; 

754 745 IF NOT NULLPARAMETERT4) 

755 Bree THEN contextLobc b gbirtn] = .global_routine; 

756 74 IF NOT NULLPARAMETERTS) 

757 0748 THEN contextCobc_l_pscrtn] = .psect_routine; 

758 0749 IF NOT NULLPARAMETERT6) 

759 750 THEN contextlobc 4 eomrtn] = .eomrec_routine; 

760 751 IF NOT NULLPAR 7s 

761 P36 THEN contextLobc t ogsrtn]) = .othgsd_routine; 

76 a IF NOT NULLPARAMETERTS) 

oer Pee THEN contextlobc_l_orcrtn] = .othrec_routine; 

765 238 recdesc = contestlobe desc); !Point to descriptor 
766 75 recdesc(dsc$b_class) = dsc$k_class_d; 

76 P38 : 


i Call user routine to read file until eof returned 


UTILSREAD_OBJEC Read and dissect object file 16-50 Sep-1984 AX=11 a) s$-32 V4.0-742 Page 28 

VOLCO08 UTILSREAD_OBJECT - es an object file ~3e 71 38F 9¢: gi: % VMSL1B.S RCIREADOBJ. B32;1 . 185 

: 769 760 ! 3 
; rr oe WHILE (.read_routine)(.contextCobc_l_usrdata],.recdesc) NEQ rms$_eof - 
3; rr 7 § DO BEGIN 3 
: ah Bre BIND ; 
3 ag Ne: objrec = .recdesc(dsc$a_pointer] : SBBLOCK; : 
ER aie! O78 IF -recdescldschu length) td gcontentlobe _w_maxrecingJ ; 
: 776 76 R .recdesc(dSc$w_length] EQL 0 : 
: 77 0768 4 THEN BEGIN ; 
; 778 0769 4 IF “context lobe 9p b_modnaming) 3h ; 
: 779 0770 4 THEN SIGNALTLAK$_illrecin2,1,. recdeseCaschuz Length]) ; 
; 780 p77) 4 ELSE SIGNAL(Lnk$_illreclen, €..recdep dsc$w_length : 
> «781 ak 4 contentte b_modnamingd); ; 
; 0775 4 dealloc_context(); : 
; 78 0774 4 RETURN Unk$_illreclen; ; 
: «784 0775 END; : 
3 es 0776 3 
; 786 0777 contextCobc_b_lstrectyp] = .contextCobc_b_currectyp]; ‘Current record becomes last record : 
: Ate gre ; contextlobc_b_currectyp) = .objreclobj$B_rectypJ; !Set current record type : 
; «6789 0780 4 IF NOT (status = ; 
; 790 0781 ; (CASE E .objreclob $b_rectyp : 
: 791 078e OM obj$c_Rdr 1 1 aise _maxrectyp OF : 
: 79 0783 5 ; 
; 0784 5 ; 
; 794 0785 5 bj$c -hdr} : prendet?s 'Process hdr record : 
; 795 0786 5 bj$c_ 15 : regsésss 'Process GSD record : 
; 796 0787 6 bj$c_eom) : 'Process eom record ; 
: 797 0788 6 roeom(); ; 
: 798 0789 6 F .contextCob v_imod) ‘Exit if 1 module : 
: 799 0790 3 THEN EXITL OOPT ; 
: 800 0791 END; : 
; 801 B76 5 CINRANGE) : true; 3 
; 80 0793 6 COUTRANGE) : BEGIN ; 
; 80 0794 6 IF .contextCobc_b_modnaming] weg © F 
: 804 0795 6 THEN SIGNALTLAKS, cittrectyp. -objrectobisb_ rectypJ, : 
: B05 0796 6 ext tobe b2modnaming]) 
; 806 0797 6 ELSE SIGNAL (LnkS. "ai ioeaks T, objreclobj$b_rectyp)); 3 
; 807 0798 6 ink$_illrectyp : 
; 808 0799 5 END; 3 
; 809 0800 5 : 
; 810 0801 4 TES)) 3 
s Bit pads 4 THEN BEGIN ; 
: eis rt 4 dealloc_context(); : 
3 1 4 & RETURN 7Status; . 
3; 814 8 05 3 ; 
3 815 B6 END; 3 
3 318 8 0 ! : 
3 aif ie } Check that last record was eom record : 
; HE $810 IF .contextCobc_b_currectyp]) NEQ obj$c_eom : 
; 820 11 THEN BEGIN 3 
: 1 \¢ SIGNAL (Lnk$ noeom, 1,contextCobc_b_modnaming)); 3 
3 ; 1 dealloc_context : 
: 14 RETURN Tnk$_ noeom. 3 
: 4 15 3 : 
: 5 16 ; 


UT FLBREAD OBJEC Read and dissect object file 
v04-00 UTILSREAD_OBJECT = read an object file 


DOVOF-ASCOKwMOnNOLl "OOM 


bal 


WBN 33 OO 
AOS NWO OVUM SNES PUN MO NOON 


Pann wn & & & Www 


; § § giz dealloc_context(); 
3 3 18 
: 5 3 1 RETURN true 
; 850 0821 END; 
> INFOM2 L1:0647 
; Null expression appears in value-required context 
5A 00000000G 8 
59 944449 0 
28 00000006 0 
5 FB20 «6C¢ 
5E 0 
6 
1 
5 
04 AE 45 8 
046 =A 
00000000G 00 9 
56 
08 5 
5 
68 0 
014 
58 § 
0045 &8F 00 6E 
20 AB 0800 8 
23 = AB 0 
02 6 
0 
08 A 
22 «AB 01 ¢ 08 8B 
0 6 
0 
oc CA 
0 
A 


PMO POONIOOOW 


—o9 9 090 9 09 9 O79 -$0OOD VOW™ZOMI "OOO -TCFOOOUI 
& 
bad 


OWI 8 OWI OWN OWI OO OO DOU GOO FS ONMVINOIMmMmnae 


COOOQOQOQOOCQOOCOoQooQooooooQoQoooQoQoooooooooooOoooOoooOoe 


F 14 
1eSep- 1984 19:94:36 EOMsLIe see Sneanoes 85301 


VMSLIB.SR 


!Of utilS$read_object 


oe & 


BJCTX 


STATU 
ale LIBS$SIGNAL 
UTILSGL_OBJCTX, CONTEXT 


#0, (SPT, #0, #69, (CONTEXT) 


#2048 32 (CONTEXT) 
#3, 35(CONTEXT) 
(AP), 

(AP) 

$ 


@FLAGS, #2, #1, 34(CONTEXT) 


(AP), #3 
12(AP) 


USER_CONTEXT, 28(CONTEXT) 
(AP), #4 


ECT_ROUTINE, 4(CONTEXT) 
P), #6 


14 

UTILSREAD_OBJEC Read and dissect object file 18-56 1984 02:27:35 AX-1 iss- -0- L 
v04-00 UTILSREAD_OBJECT - deci an object file 1 ~3007 138% tH et VMSLIB SRE READOGI BSoe1 Page 43s Vv 
18 OA 99 TSTL 4 (AP) : ; 

08 18 a5 i 3 fovt Be ROUTINE, 8(CONTEXT) : 0750 

0 6¢ Bf ag 6$: CMPB OS s«CAP), 7 : : o73e ; 

A iF Me BLSSu 7 : ; 

1¢ aC D A TSTL (AP) : ; 

oc A 1c Re BS OO0aB Sout 28 sp ROUTINE, 12(CONTEXT) : 075 

08 6¢ Bf Be 7$: CMPB sé AP), 9B : : o72g ; 

A 1F 0008 BLSSU $ : ; 

20 aC D B TSTL (AP) : : 

05 1 OOBA BEQL 4 : : 

10 A 20 AC bd 000BC MOVL QTHREC ROUTINE, 16(CONTEXT) + 0754 : 

5 146 OA 3 OC1 8$: MOVAB grit RECDESC ; 0756 ; 

03 A Q 9 OC MOVB #2, 3(RECDESC) : 075 ; 

DD 000C9 9s: PUSHL RECDESC + 0761 ’ 

gc ge HB PR SSSR FARM FRONT in : : 
0001827A BF g D1 0003 CMPL ORR #98958 : F 
03 12 000D BNEQ = 10$ : ; 

0082 31 000DB BRW 26$ F ; 

20 AB 62 81 ODE 10$: CMPW (RECDESC), 32( CONTEXT) + 0766 : 

04 1A OOOE BGTRU 11 : : 

62 BS O00E4 TSTW  (RECDESC) : 0767 : 

2 if OOEG BNEQ 14$ ; ; 

25 AB 95 OOOE8 11$:  TSTB  37(CONTEXT) + 0769 ; 

10 12 OO00EB BNEQ 12$ : ; 

7E 62 3C OO0ED MOVZWL (RECDESC), -(SP) : 0770 ; 

01 DD O00F PUSHL #1 : : 

000000006 8F ODD OOF PUSHL #LNK$_ILLRECLN2 : ; 

68 98 FB OOOF CALLS #3, LIBSSIGNAL 3 ; 

D 11 000FB BRB 13§ : ; 

25 AB OF OOOFD 125 PUSHAB 37(CONTEXT) : 0772 ; 

7E 62 3¢ 00100 MUVZWL (RECDESC), (SP) : ; 

0 dD 00105 PUSHL #2 : : 

A DD 0010 PUSHL R10 : : 

68 04 FB 00107 CALLS #4, LIBSSIGNAL : : 

67 90 FB 901 A 13$ CALLS #0. DEALLOC_CONTEXT : 0773 : 

50 A pO 0010p MOVL R16, RO ; 0774 3 

24 AB 23 OA $3 0111 14$:  MOVB  35(CONTEXT), 36 (CONTEXT) + 0777 ; 

3 AB 04 B2 90 116 MOVB a4 (RECDESC). 35(CONTEXT) : 0778 ; 

07 00 4 B2 8F 0011B CASEB a4 (RE DESC), #0, #7 : 0781 : 
9052 0060 0048 004 00120 15$: WORD 188- $,- : ; 
0060 0060 060 1 198-1 $.- : ; 
1$-15$.- : : 

$-15$;- : ; 

$-15$.- ; 3 

$-15$,- 3 : 

$-15$ : : 

25 AB 95 1 TSTB (CONTEXT) > 0794 ; 

14 13 001 EQL gs : ; 

25 AB OF 001 PUSHAB 37(CONTEXT) : 0796 : 

7E 4 9a 001 MOVZBL @4(RECDESC), -(SP) : ; 

DD 0013¢ PUSHL #2 : : 

000000006 8F DD 0013€ PUSHL  #LNK$_ILLRECTYP : : 


H 
UTILSREAD_OBJEC Read and dissect object file 16- 
VO4+005 UTILSREAL OBJECT = read an object file 14- 
68 4 F 144 
BF fi 147 
7E Cs ¢ A 00149 16$: 
DD 0014D 
000000006 4 pp of 
4 000000006 8F 06 138 17$: 
00B3 C7 6 A } 1 188: 
0168 (C7 F 168 19%: 
56 ; 6 16D 208: 
11 ° 19 
0385 (C7 FB Bie 21$: 
14 22 SAB E 17 
D4 0017C 
11 0017 
6 1 DO 001 g $: 
0 § 5? 01 $: 
FF4 1 001 
67 00 FB B18? gus: 
50 56 DO 0018C 25$: 
oS 018F 
03 23 1 00190 26$: 
19 13 00194 
25 AB OF 3138 
01 DD 0019 
00000000G 8F DD 0019B 
68 03 FB OO1A1 
67 00 FB QO1A4 
50 00000000G 8F 00 001A7 
04 Ooi 
67 00 FB QOIAF 278: 
50 01 DO Bp 18g 
04 0018 
; Routine Size: 438 bytes, Routine Base: _UTILSCODE + 0401 
; 831 oes 1 
3; G32 0823 0 END ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
3;  UTILSDATA 4 NOVEC, WRT, RD ,NOEXE,NOSHR, 
; _UTILSCODE 1671 NOVEC,NOWRT, RD , EXE,NOSHR, 
; = OS -« 0 NOVEC,NOWRT,NORD ,NOEXE,NOSHR, 


Sep-984 0:27:55 


-EXTRN 


4, LIBSSIGNAL 
a4 (RECDESC), -(SP) 
aLNKS ILLRECTY2 
#3, 18 SIGNAL 
#LNKS$_ILLRECTYP, STATUS 
#0, PROHDR 
20$ 
#0, PROGSD 
RO. STATUS 
40, PROEOM 
#2. 34(CONTEXT), 26$ 
TATUS 
3$ 
#1, STATUS 
STATUS, 24$ 


#0, DEALLOC_CONTEXT 
STATUS, RO 


i #3 
37 (CONTEXT) 

HUNKS NOEOM 

#3, LIBSSIGNAL 

#0; DEALLOC_CONTEXT 
#LNK$_NOEOM; RO 


#0, DEALLOC_CONTEXT 
#1, RO 


LIBSSIGNAL 


AX=11 Bliss-32 V4.0-742 
VMSLIB.SRCJREADOBJ .B32; 1 


Pete Se Se Ge Se Ge Be Be Se Se Se Se Ge Ge Se Fe Se Se Ge Ge Ge Ge Se Be Ge Ge Se Se Ge Se Se Be Ge Be 
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0797 


0793 
0785 
0786 
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UT ILSREAD OBJEC mat and dissec object f 18-Sep-1984 ee AX-11 ay tet SH Page ae 


$READ_0B OBJECT - read ps ‘Salect file VMSLIB.SRC OBJ .B832;1 


Library Statistics 


soceee== Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 77 0 581 00:01.0 


Information: 1 
Warnings: 
Errors: 


COMMAND QUALIFIERS 

BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:READOBJ/OBJ=0BJ$:READOBJ MSRC$:READOBJ/UPDATE=(ENH$:READOBY) 

Size 1659 00:3707 + 16 data bytes 
Run Time: 


Elapsed Time: 09: 9.5 
Lines/CPU Min: 783 
Lexemes/CPU-Min: 17998 
poe Used: 207 pages 
Compilation Complete 
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